home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.barnyard.co.uk
/
2015.02.ftp.barnyard.co.uk.tar
/
ftp.barnyard.co.uk
/
cpm
/
walnut-creek-CDROM
/
COMMODOR
/
EDIT.ARC
/
SPRITE BOOT
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2000-06-30
|
759b
|
22 lines
10 REM
15 REM SPRITE EDITOR BOOT
20 REM
25 PRINT "[147]":POKE 53280,14:POKE 53281,6
30 PRINT"LOADING ...":GOSUB 100
40 PRINT "LOAD"CHR$(34)" SCROLL.DATA"CHR$(34)",8,1"
41 PRINT "NEW"
42 PRINT "LOAD"CHR$(34)" SPRITE EDITOR"CHR$(34)",8"
50 POKE 198,10
55 DATA 19,13,13,13,32,32,82,85,78,13
60 FOR I=1 TO 10:READ X:POKE 630+I,X:NEXT
70 POKE 44,64:POKE 16*1024,0:POKE 56,126:CLR:NEW
100 PRINT" [146] [146] [146] [146] [146] [146]
110 [153]" WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT
120 PRINT" [183][183][183] [146] [146][183][183][183] [146][183][183][181] [146] [146] [146][183]
130 [153]" USRUSRUSRUSR USR USR COS USR USR USRUSRUSRUSR
140 PRINT" [146] [146] [146] [146] [146] [146]
150 [153]" WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT WAIT
160 PRINT" [146][183] [146] [146] [146] [146] [146] [146] [146][183][183][181]
170 [153]" USRUSRUSRUSR USRUSRUSRUSR USR USR USRUSRUSRUSR USR COS
180 RETURN